10 IFW=2THENRUN30 20 W=2:POKE724,0:POKE725,0:POKE1022,0:POKE1023,0 30 POKE53280,0:POKE53281,0:PRINT"[154][147]";:(null):(null):POKE53269,0:POKE53265,11 40 POKE53282,3:POKE53283,14:POKE53272,27:POKE53270,216 50 GOSUB140 55 PRINT"[158]";PEEK(724)+256*PEEK(725) 60 PRINT"[159]***BLAST-OFF![159]***" 70 PRINT"PLUG JOYSTICK IN PORT 2." 80 (null) 2,203,2,17:(null) 8:(null)2,80,90:(null)2,1,1:(null)2:POKE53269,4 90 PRINT"PRESS FIRE TO START" 95 PRINT"[154]";:GOSUB130:PRINT"";SPC(35);"[168][169]"; 97 SL=1520:GOSUB150:POKE53265,27:POKE716,3:POKE198,0 98 PRINT"[156]HIGH:";PEEK(1022)+256*PEEK(1023); 100 GETA$:IFA$<>""ANDLEN(AA$)<6THENAA$=AA$+A$:IFAA$="[137][134][135][136]"THEN270 105 IF(PEEK(56320)AND16)=16THEN100 110 (null)5:(null):(null):PRINT"[147]"; 112 PRINT"3 - 2 - 1 - BLAST-OFF!":FORL=1TO500:NEXT 113 FORL=0TO34:GOSUB160:FORLL=1TO12:NEXT:GOSUB165:FORLL=1TO10:NEXT:NEXT:PRINT"[147]" 115 POKE724,.:POKE725,.:LV=1:PS=1000:PQ=2500:XS=2:GOTO300 120 SC=PEEK(724)+256*PEEK(725):PRINT"[158]";SC:PRINT""; 125 PRINT"[159]LIVES:";PEEK(716);"[157] "; 127 PRINT"LEVEL";LV:RETURN 130 PRINT"[194][195][196][197][157][157][157][157][198][199][200][201][157][157][157][157][202][203][204][205][157][157][157][157][206][207][208][209]";:RETURN 135 PRINT"[210][211][212][213][214][157][157][157][157][157][215][216][217][218][219][157][157][157][157][157][220][221][255][223][160][157][157][157][157][157][161][162][163][164][165]";:RETURN 140 FORL=0TO20:X=INT(RND(1)*999)+1024:XX=INT(RND(1)*5) 142 IFXX<2THENPOKEX,103:GOTO147 144 IFXX<4THENPOKEX,106:GOTO147 146 POKEX,65:POKEX+54272,14:GOTO148 147 POKEX+54272,9 148 NEXT:RETURN 150 S=54272:S%=40:FORL=0TO6:FORLL=0TO7:POKESL+S+L*S%+LL,14 155 POKESL+L*S%+LL,107+8*L+LL:NEXTLL,L:RETURN 160 PRINT"[150]#$[154]%'([146][157][157][157][157][157]";:RETURN 165 PRINT" [155]#$[154]%'([146][157][157][157][157][157]";:RETURN 170 PRINT"[154]+,-.[157][157][157][157]/012[157][157][157][157]3456[157][157][157][157]789:[146]";:RETURN 270 POKE716,200:GOTO110 280 FORL=0TO9:POKE828+L,PEEK(1639+L):POKE838+L,PEEK(55911+L):NEXT:RETURN 290 FORL=0TO9:POKE1639+L,PEEK(828+L):POKE55911+L,PEEK(838+L):NEXT:RETURN 300 PRINT"[147]";:POKE53265,11 305 ONLVGOTO310,320,330,337,340,345,350,355,360,365,330,370 310 GOSUB140:PRINT"[154]";:GOSUB135:PRINT"[145][145][166]"; 315 GOTO400 320 GOSUB140:PRINT"[154]";SPC(32);:GOSUB130:PRINT"";:GOSUB130 325 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][166][145][145][145][168][169]";:GOTO400 330 GOSUB140:PRINT"[154]";SPC(30);:GOSUB135:PRINT""; 333 GOSUB130:PRINT"[145][166][145][166][168][169][157][157][157][157][157][157][157][157][157][168][169][145][166]"; 335 PRINT"";:GOSUB170:GOTO400 337 GOSUB140:PRINT"[154])*[146]";:GOSUB135:SL=1451:GOSUB150 338 GOTO400 340 GOSUB140:PRINT"[154][157][157][157][157][157][157][157][157][157][157]";:GOSUB135:PRINT"[145][145]"; 342 GOSUB130:SL=1448:GOSUB150:PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157]";:GOSUB170:GOTO400 345 GOSUB140:PRINT"[154])*[146][145][145][145][145][145][145][157]";:GOSUB135:PRINT"[168][169]"; 347 PRINT"[157][157][157][157]";:GOSUB130:PRINT"[157])*[146][157][145][145][145][145][145][145]";:SL=1251:GOSUB170 348 GOSUB150:GOTO400 350 GOSUB140:SL=1439:GOSUB150:PRINT"[154][157][157][157][157][157][157][157][157]";:GOSUB170 352 PRINT"[168][169][166][145][166][157][157][157][157][157][157][157])*":GOTO400 355 GOSUB140:PRINT"[154]";:GOSUB170:PRINT"[145][145][145][145]";:GOSUB135:PRINT"[145][166]"; 357 PRINT"";:GOSUB170:PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157]";:GOSUB130:GOTO400 360 GOSUB140:SL=1425:GOSUB150:PRINT"[154]";:GOSUB135 362 PRINT"[145][145][145][145]";:GOSUB130:PRINT"[145][145][145][168][169][145])*[146][145][166][145][193][151][167][154][170]";:GOTO400 365 GOSUB140:PRINT"[154])*[146][168][169][145][166][167][157][157][157][157]";:GOSUB130 367 PRINT"[145][145]";:GOSUB170:PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:GOSUB130:GOTO400 370 GOSUB140:SL=1064:GOSUB150:SL=1335:GOSUB150:PRINT"[154]"; 375 GOSUB135:PRINT"[145]";:GOSUB170:PRINT"[145][145][145][145]";:GOSUB130 380 PRINT"[157][157][157][157][157][157][145][145][145][145][145][145][145]";:GOSUB130 385 PRINT"[166][157])*[146][145][168][169]"; 400 POKE53265,27:GOSUB120:GOSUB280:PRINT""; 402 PRINT"LEVEL";LV;"[157]!"; 405 FORL=1TO2000:NEXT:GOSUB290:FORL=2TO7:(null)L:NEXT 410 (null) 420 GOSUB120 430 IFPEEK(716)=0THEN1000 440 IFSC>PSTHEN900 450 GOTO420 460 FORL=1TO20:GOSUB120:NEXT:POKE719,XS:RS=XS:IFPEEK(716)=0THEN1000 465 (null) 470 IFPEEK(719)=0THEN1500 475 (null)3:FORL=1TO110:(null)2:(null)4:(null)5:(null)6:NEXT:GOTO1400 477 LL=PEEK(716) 480 GOSUB120:IFPEEK(716)PEEK(1022)+256*PEEK(1023)THENPOKE1022,PEEK(724):POKE1023,PEEK(725) 1030 RUN30 1400 (null)3,1,1:LL=PEEK(719) 1410 IFLL=1ORLL=5ORLL=9THEN:(null)3,203,2,17 1420 IFLL=2ORLL=6ORLL=10THEN:(null)3,200,0,0 1430 IFLL=3ORLL=7ORLL=11THEN:(null)3,201,0,0 1440 IFLL=4ORLL=8ORLL=12THEN:(null)3,197,0,0 1490 GOTO477 1500 (null)(null):FORL=1TO1500:NEXT:FORL=2TO7:(null)L:NEXT 1505 FORL=1TO500:NEXT:IFPEEK(716)=0THEN1000 1510 LV=LV+1:PS=PS+PQ:XS=XS+1:IFLV=13THEN2000 1515 IFLV=7THEN1530 1520 GOTO300 1530 PRINT"[147]";:GOSUB120:PRINT""; 1540 FORL=0TO34:GOSUB160:FORLL=1TO12:NEXT:GOSUB165:FORLL=1TO10:NEXT:NEXT 1545 PRINT" ";:POKE716,PEEK(716)+1:GOSUB120:PRINT"";SPC(14); 1550 (null)7:FORT=1TO5:PRINT"EXTRA LIFE![157][157][157][157][157][157][157][157][157][157][157]";:FORL=1TO300:NEXT 1560 PRINT" [157][157][157][157][157][157][157][157][157][157][157]";:FORL=1TO100:NEXTL,T 1570 GOTO300 2000 POKE53265,11:LV=12 2005 (null):(null):PRINT"[147][154]";:GOSUB140:PRINT"[168][169])*[146][157][157][157][157][157][157][166]"; 2007 GOSUB120:SL=1214:GOSUB150 2010 PRINT"CONGRATULATIONS!" 2020 PRINT"YOU HAVE SUCCESSFULLY FOUGHT OFF ALL THE"; 2030 PRINT"ENEMY ATTACK FIGHTERS AND SAVED THE GALAXY!":POKE53265,27 2040 FORL=1TO4000:NEXT:GOTO1000